# Ввести строку-шаблон, а затем вводить строки-примеры; конец ввода — пустая строка. Вывести все строки-примеры, в которых есть хотя бы один символ из строки-шаблона. длина строк меньше 100.

.include "string.inc"    	# В Д/З сюда надо вставить string.inc и string.asm
.include "string.asm"

.globl	main

.data
buf:	.space  STRSIZE		# 101
example:.space  STRSIZE		# 101
	.align  2                    
array:

.text
main:   li	s6 0
	la	s3 array
	la      s4 example
        li      s5 STRSIZE      # 101
        syscall 8 s4 s5         # s4→a0, s5→a1; ecall 8
        strip   s4 '\n'
loop:   strget  s1 s2           # jal _strget; a0→s1 (aдрес), a2→s2 (длина)
	beqz    s2 done
        mv	s5 s4
        loop_cmp:
        	lb      t1 (s5)         # очередной символ
        	beqz    t1 fin_cmp	# нулевой — конец строки
        	strchr	s1 t2 t1
        	bnez	t2 yes_cmp
        	addi    s5 s5 1         # увеличим счётчик
		b       loop_cmp
	yes_cmp:
	sw	s1 (s3)
	addi	s3 s3 4
	addi	s6 s6 1
	fin_cmp:
	b       loop
done:   la	s3 array
loop_print:
	beqz    s6 done_print
	addi	s6 s6 -1
	lw	t1 (s3)
	print	t1
	addi	s3 s3 4
	b       loop_print
done_print:     syscall 10
